﻿Namespace Project
    <Serializable()>
    Public Class MyProject
        Private _ProID As String
        Private _ProName As String
        Private _ProDir As String
        Private _ProMidLine As List(Of Midline.midline)
        Private _VLine As Midline.V_MidLine
        Private _ProPts As List(Of String)

        Public Property ProID() As String
            Get
                Return _ProID
            End Get
            Set(value As String)
                _ProID = value
            End Set
        End Property

        Public Property ProName() As String
            Get
                Return _ProName
            End Get
            Set(value As String)
                _ProName = value
            End Set
        End Property

        Public Property ProDir() As String
            Get
                Return _ProDir
            End Get
            Set(value As String)
                _ProDir = value
            End Set
        End Property

        Public Property ProMidLine() As List(Of Midline.midline)
            Get
                Return _ProMidLine
            End Get
            Set(value As List(Of Midline.midline))
                _ProMidLine = value
            End Set
        End Property

        Public Property ProPts() As List(Of String)
            Get
                Return _ProPts
            End Get
            Set(value As List(Of String))
                _ProPts = value
            End Set
        End Property

        Public Property VLine() As Midline.V_MidLine
            Get
                Return _VLine
            End Get
            Set(value As Midline.V_MidLine)
                _VLine = value
            End Set
        End Property

        Public Sub New()
            ProID = "空"
            ProName = ""
            ProDir = ""
            ProMidLine = New List(Of Midline.midline)
            ProMidLine.Clear()
            VLine = New Midline.V_MidLine()
            ProPts = New List(Of String)
            ProPts.Clear()
        End Sub


    End Class
End Namespace
